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SIMULATION  PROGRAMMING  USINC  SIMSCRIPT  TT 
Philip  J.  Kiviat* 

The  RAND  Corporation,  Santa  Monica,  California 


The  simulation  described  in  this  paper  has  been  designed  to 
illustrate  as  much  of  SIMSCRIPT  II  as  possible  in  a  natural,  problem- 
oriented  setting.  While  the  program  uses  all  of  the  language's 
features  that  are  important  in  simulation  studies,  it  does  not  use 
every  SIMSCRIPT  feature.  complete  description  is  contained  in 
P.  J.  Kiviat  and  R.  Villanueva,  The  SIMSCRIPT  II  Programing 
Lan£uage,  R-460-PR,  The  RAND  Corporation,  September  1968. 

Even  though  the  features  illustrated  are  not  exhaustive,  the 
example  may  still  seem  forced  and  artificial.  This  should  not  be 
surprising,  as  it  is  a  rare  program  that  requires  the  full  facilities 
of  any  complex  programming  language.  The  example  is  an  elaboration 
of  the  job  shop  model  of  Chapter  3  of  the  SIMSCRIPT  II  report.** 

The  plan  of  the  paper  is  as  follows:  the  first  section  describes 
a  model  of  a  system  in  general  terms,  presents  some  problems  the  model 
has  been  designed  to  study,  and  places  the  rest  of  the  paper  in  per¬ 
spective.  The  next  section  contains  a  listing  of  the  complete  simula¬ 
tion  program  followed  by  a  set  of  typical  data  cards.  The  last 
section  works  through  the  program  section  by  section  and,  occasionally, 
where  it  is  warranted,  statement  by  statement,  explaining  the  syntax 
and  semantics  of  the  statements. 


•k 

Any  views  expressed  in  the  paper  are  those  of  the  author.  They 
should  not  be  interpreted  as  reflecting  the  views  of  The  RAND  Corporation 
or  the  official  opinion  or  policy  of  any  of  its  governmental  or  private 
research  sponsors.  Papers  are  reproduced  by  The  RAND  Corporation  as  a 
courtesy  to  members  of  its  staff. 

** 

H.  M.  Markowits,  B.  Hausner  and  H.  W.  Karr,  SIMSCRIPT  -  A  Simula¬ 
tion  Programming  Language  „  Prentice-Hall  Inc.,  New  York,  1963. 
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THE  SYSTEM 

The  system  under  study  Is  shown  abstractly  in  Fig.  1.  It  is 
a  shop  containing  N  production  centers,  each  containing  identical 
machines,  and  finished  goods  inventory  storage  area.  The  shop 
produces  P  standard  products  for  local  sale  and  distribution,  and 
variations  of  standard  products  for  local  and  export  distributors. 
Each  product  ordered  travels  through  the  shop,  undergoing  processing 
at  production  centers  according  to  standard  routings,  production 
times  and  expediting  procedures. 
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Fig.  1  —  System  Under  Investigation 

Each  production  center  has  an  in-process  inventory  area  where 
products  in  process  are  stored  if  they  cannot  be  worked  on  when  they 

arrive.  To  minimize  the  value  of  in-process  inventory,  the  production 

rules  of 'the  shop  remove  partially  completed  products  from  production 
center  queues  according  to  a  "high  value  first"  rule. 

Table  1  shows  the  entity-attribute-set  model  of  the  shop  and 
its  product  line.  These  descriptors  explain  the  shop's  static  struc¬ 
ture.  Permanent  entities  are  used  for  production  centers  and  product 
descriptions.  Temporary  entities  are  used  for  jobs  and  for  job  pro¬ 
cessing  specifications. 

The  shop  operates  roughly  as  follows.  When  orders  for  standard 

products  come  into  the  shop,  a  standard  production  sequence  is  copied 

from  an  order  book  onto  a  job's  production  routing  tag.  The  job  is 
sent  to  the  first  production  center,  where  it  is  worked  on  if  a 
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machine  is  free.  If  no  machines  are  available,  the  job  is  put  in 
a  work-in-process  queue  until  a  machine  becomes  available.  When  a 
job  finishes  processing,  its  routing  tag  is  examined,  and  the  job 
is  either  sent  on  to  another  processing  center  pr  to  the  finished 
goods  inventory. 

The  shop's  dynamic  structure  is  captured  in  two  events  --  SALE 
and  END. OF. PROCESS.  Two  other  events,  WEEKLY. REPORT  and  END. OF. 
SIMULATION,  print  periodic  system  performance  data  and  stop  the 
simulation.  SALE  is  set  up  so  it  can  be  triggered  both  internally 
and  externally.  When  triggered  internally,  SALE  represents  a  local 
sale  of  a  standard  product.  When  triggered  externally,  SALE  represents 
either  a  local  or  export  sale  of  a  special  order.  Two  external 
event  data  tapes  are  provided  to  supply  special  order  information. 

In  SALE,  jobs  are  assigned  to  machines  and  the  system  state  changes 
to  reflect  such  assignments.  When  a  job  is  assigned  to  a  machine, 
an  END. OF. PROCESS  event  is  scheduled  to  terminate  the  processing, 
make  the  machine  available  for  another  job,  and  pass  the  job  on 
for  additional  processing  or  for  shipment. 

The  simulation  model  is  designed  to.  determine  the  number  of 
machines  needed  at  each  production  center  to  provide  "adequate" 
customer  service.  To  study  the  effects  of  varying  the  number  of 
machines  in  each  center,  a  TALLY  statement  looks  at  the  length  of 
time  jobs  spend  in  the  shop,  and  an  ACCUMULATE  statement  looks  at 
the  waiting  lines  that  build  up  at  the  production  centers.  Some 
number  of  machines  will  be  chosen  that  balances  the  cost  of  degraded 
customer  service  with  the  costs  of  additional  machines. 

The  program  listing  that  follows  has  been  written  and  annotated 
to  make  it  as  readable  as  possible.  Statements  that  are  not  clear 
from  the  program  itself  are  discussed  in  the  section  following  the 
listing. 


t 
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ENTITIES,  ATTRIBUTES  AND  SETS  OP  THE  SHOP  MODEL 


Entity 

Set  or 

Attribute 

Consent 

PRODUCTION. CENTER 

The  shop  has  N 
production  centers. 

NUMBER. IDLE 

QUEUE 

The  number  of  idle  machines  in 
a  production  center 

Each  production  center  owns  a 
collection  of  in-process  prod¬ 
ucts  . 

PRODUCT 

The  shop  produces 

P  different  prod¬ 
ucts. 

SALES .FREQUENCY 

NAME 

Characterizes  the  frequency  with 
which  orders  for  a  standard 
product  arrive  at  the  shop. 

Identifies  a  product 

STRUCTURE 

Each  product  has  a  list  of 
standard  operations  that  have 
to  be  performed  to  produce  it. 

JOB 

VALUE 

The  dollar  value  of  a  job 

Each  order  for  a 
product  is  called 

DUE .DATE 

The  time  a  job  is  promised  to 
a  customer 

a  Job. 

ARRIVAL. TIME 

The  time  a  job  is  ordered 

* 

EXPEDITE .FACTOR 

The  degree  to  which  a  job's 
processing  can  be  speeded  up 
at  a  production  center. 

ROUTING 

A  list  of  production  centers 
through  which  a  Job  has  to 
be  processed 

FINISHED .GOODS . 
INVENTORY 

Jobs  can  be  placed  in  finished 
goods  inventory  awaiting  ship¬ 
ment 

THE  SYSTEM 

The  shop 

FINISHED. GOODS. 
INVENTORY 

Jobs  are  placed  in  finished 
goods  inventory  if  finished 
before  their  due  date. 

OPERATION 

A  task  performed  by 
a  production  center 
in  producing  a  prod¬ 
uct. 

MACHINE  .DESTINED 

CODE 

The  production  center  at  which 
a  job  must  be  processed. 

A  number  representing  a  part¬ 
icular  processing  task. 

PROCESS. TIME 

The  time  it  takes  to  perform  a 
processing  task 

STRUCTURE 

The  standard  parts  list  on  which 
different  operations  appear 

ROUTING 

The  processing  operations  re- 
aulred  for  a  particular  lob - 

? 

i 


i 
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SAMPLE  SIMSCRIPT  II  S I  PUL AT  I CN  PROGRAM 
A  JOB  SHOP  SIMULATION 


PREAMBLE 

NORMALLY  MOO€  IS  INTEGER  AND  DIMENSION  IS  0 
PERMANENT  ENTITIES . 

EVER*  PRODUCT  HAS  A  SALES. FRECUENCV  AND  A  NAME  ANC  OWNS  A  STRUCTURE 
CEFINE  SALES. FREQUENCY  AS  A  REAL  RANDOM  LINEAR  VARIABLE 
DEFINE  NAME  AS  AN  ALPHA  VAR  I  ABLE 
EVERY  PRODUCT .PROCUCT  HAS  A  PROOUC T . SALE S I */2 I 

EVERY  PRODUCTION. CENTER  HAS  A  (MAX  .  IN. QUEUE  I  1/2)  .MAX*  QUEUE.  (  2/2  1 1  IN  ARRAY  I. 
A  (WNUMd/2),  MNUM 1 2/2 1  I  IN  ARRAY  2,  A  WSUM,  A  MSUM,  A  NUMBER. IDLE 
AND  OWNS  A  QUEUE 

OEFINE  NUMBER. IOLE  AS  A  VARIABLE  MONITOREO  ON  THE  LEFT 
TEMPORARY  ENTITIES . 

EVERY  JOB  HAS  A  VALUE  IN  WCfiO  2.  A  CUE. DATE.  AN  ARRIVAL. TIME. 

AN  EXPECITE. FACTOR  FUNCTICN.  MAY  BELONG  TO  A  QUEUE.  OWNS  A  ROUIINg 
AND  MAY  BELONG  TO  THE  MAI  TING. SET 

OEFINE  EXPEDITE. FACTOR  AS  A  REAL  FUNCTION 

DEFINE  VALUE.  OUE.OATE  AND  ARRIVAL. TIME  AS  REAL  VARIABLES 
OEFINE  ROUTING  AS  A  FIFO  SET  Ml THOUT  P  AND  N  ATTRIBUlES 
OEFINE  QUEUE  AS  A  SET  RANKED  BY  HIGH  VALUE 
EVERY  OPERATION  HAS  A  I  COCEII/21  ANC  MACH INE .DE S T INEC I  2 /? 1  )  IN  MORO  I 
AND  A  PROCESS. TIME  ANO  BELONGS  TC  A  STRUCTURE  AND  A  ROolING 

DEFINE  STRUCTURE  AS  A  SET  RANKEO  BY  LCM  CODE  WITHOUT  *  ATTRIBUTE 
ANO  MI THOUT  R  ROUTINES 
OEFINE  PROCESS. TIME  AS  A  REAL  VARIABLE 

EVENT  NOTICES  1NCLUCE  WEEKLY JREPCR T 

EVERY  SALE  HAS  A  PRODUCT i TYPE .  A  PRICE  ANC  A  PRIORITr 
DEFINE  PRICE  AS  A  REAL  VARIABLE 
EVERY  ENC. OF. PROCESS  HAS  AN  ITEM  AND  A  PRCDUCE  R 

PREAK  SALE  TIPS  BY  HIGH  PRICE  THEN  BY  LOW  PRIORITY 
EXTERNAL  f  VENT S  ARE  ENC .OF . S I MUL AT  ION  AND  SALE 
EXTERNAL  (VENT  UNITS  ARE  LOCAL. SALES  ANO  EXPORT. SAM ’> 

PR  1  OR  I  1 Y  OROER  IS  E ND.TF . PROC E SS ,  SALE,  NEEKl  Y .KEPCR I  AND  END. UF . S I Mui  T 1 1 N 

BEFORE  FILING  ANO  REMOVING  FROM  QUEUE  LALL  QUEUE. CHECK 
BEFORE  DESTROYING  JOB.  CALL  STAY. TIME 

OEFINE  STAY  AS  A  REAL  DUMMY  VARIARLl 

TALLY  AVG. STAY  AS  THE  MEEKLY  MEAN,  VAR. STAY  AS  THE  WEEKLY  VARIANCE,  SuM.STAY  AS 
THE  BEEKLY  SUM,  SUM. SQUARE S . S I  AY  AS  The  MEEKLY  SUM. OF . SQUARE S  .  AND 
NIJM.STAY  AS  THE  WEEKLY  NUMBER  OF  STAY 

ACCUMULATE  WSCM  AS  THE  MEEKLY  SUM,  WNUM  AS  THE  mELMY  NUMBER,  AVG.QUtUl  AS  THE 
MEEKLY  MEAN,  MAX. QUEUE  AS  THE  WEEKLY  MAXIMUM  AM.  FRICIO  TO  .'*>  BY  I) 

AS  THE  WEEKLY  HISTOGRAM  OF  N. QUEUE 

ACCUMULATE  MSUM  AS  THE  MONTHLY  SUM,  MNUM  AS  T  HI  mlNTHLY  NUMBER,  A  VI. .  I N .  (JIM  UE  AS 
THE  MONTHLY  MEAN,  MAX. IN. QUEUE  AS  THE  MCNIHIY  MAXIMUM  OF  N. .UlUF 

THE  SYSTEM  OWNS  A  F  INI  SHED. GOODS*  INVEMCRY 

OIFIM  F INISHf O.GCCDS. INVENTORY  AS  A  SIT  RANK  I  I  P »  C  L.OAIE 

UEFIM  LOCAL  TC  MIAN  OFFINL  l,J,K,l,M  AND  N  AS  SAVID  INTEGER  VARIAhllS 

OFF  IN.  WLFK  TO  MEAN  *HOURS.V»T  HOURS 

CIFIM  PRIORITY. FREQUENCY  AS  A  2-0  I  ME N S  I  CNAl  ARRAY 
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C  e  F  INI-  TITLE  AS  *  TEXT  VARIABLE 

CEE |M  MEEK. COUNTER  AND  TAPE JFLAG  AS  INTEGER  VARIABLES 
CEE |NE  AVERAGE  AS  A  REAL  FUNCTION  Ml  TH  I  ARGUMENT 
ENC 


PA  |K 

•  I K I T I  At  l/E*  PERFORM  INITIALISATION 
LET  El IMEEN.V«*THACE'  START  SIMULATION 


••  PERFORM  NEXT  EXPERIMENT  ••  - 

FOR  EACH  JOB  IN  F  1NISHEC.GOOOS. INVENTORY*  DO  V 

REMOVE  THE  JOB  FROM  F INI  SHED. GOOD S. INVENTORY 
DESTROY  THE  JOB 

LOOP 

FOR  EACH  PRODUCTION. CENTER* 

FOR  EACH  JOB  IN  QUEUE.  OG 

FCR  EACH  OPERATION  IN  ROUTING)  00 

REMOVE  THE  OPERATION  FROM  ROUTING 
DESTROY  THE  OPERATION 

LCOP 

REMOVE  THE  JOB  FROM  QUEUE 
UESTRCV  THE  JOB 

LCCP 

FCR  EACH  PROOUCT*  CC 

fCR  tACH  OPERATION  IN  STRUCTURE.  00 

REMOVE  THE  OPERATION  FROM  THE  STRUCTURE 
DESTROY  THE  OPERATION 

LCOP 

AISC  FUR  EACH  RANCOM.E  IN  SALES. FREQUENCY.  DO 

REMOVE  THE  RANCOM.E  FROM  SALES. FREQUENCY 
DESTROY  THE  RANOOM^E 

LCC  P 

KCIEASE  NAME.  E. STRUCTURE, L. STRUCTURE.  N.  STRUCTURE,  F . SALE S. F Rl  CUENC V , 
PRODUCT .SALES.  NUMBER. IOLE,  F.CUEUE,  L.CUEUE,  N. QUEUE,  MAX. IN. QUEUE, 
MAX.QUFUE,  M  SUM ,  MSUM,  MNUM •  MNUM 
REl EASE  PRIORITY. FREQUENCY 
ERASE  TITLE 

RESET  TOTALS  CE  STAY 

FfH  EALH  PRCOUCTICN. CENTER.  RESET  TOTALS  CE  N. QUEUE 

LEI  Ml tK.fCUNTER»0 
KRITE  AS  "••••«,/ 

LET  I  APE  JF  L  AG*  0 

••  REUSE  EXTERNAL  EVENTS  IN  NEXT  EXPERIMENT 
HEM IM.  LCCAL. SALES  AND  EXPORT. SALES 

GC  INITIAL  TIE 
STOP  ENC 
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WCLIINL  FOR  INITIALIZATION 
LOCAL 

CEUM  l>T  TO  MEAN  PR  ICR  IT  V. FREQUENCY 
C f f INF  SF  TO  PLAN  SALES. FREQUENCY 
CEfIM  CHECK  AS  AN  ALPHA  VAR  I  ABLE 
IM  EO.V-I 
INPUT  TITLE 

IF  ECF .V»?i  PRINT  I  LINE  AS  FCLLOHS 
ENC  OF  DATA  HI T 
STOP 

FLSE 

Ht AC  N.PR(  CUCTION. CENTER 

CREATE  EVERY  PROOUC T I ON.CEN TER 

FOR  EACH  PRODUCTION. CENTER,  READ  NtPBER.ICLE 

HE  AC  N. PRODUCT 

CREATE  EVERY  PRODUCT 

RESERVE  PRIORITY. FRf QUENC t I • , * )  AS  N. PRODUCT  BY  ♦ 

FCR  EACH  PRODUCT,  CC 

RE AC  NAPE 

RE  AC  SALES. FREUUtNuY 

RESERVE  PRIORI  TV.  FRECUENCY  I  PRCOUC  T  ,*  I  AS  PRCC.'CT 

FOR  1-1  TO  PRODUCT,  RE  AC  PRIORITY. FREQUI NLYIl  ]OuCT,l) 

UNTIL  POOE  IS  ALPHA,  00  THIS . 

CREATE  AN  CPERATICN 

FILE  THE  OPERATION  IN  STRUCTURE 

READ  CCUE ,  MACHINE. DESTINED  AND  PROCES  .TINE 

LOOP 

SKIP  1  FIELD 

CAUSE  A  SALE  IN  SF  HOURS 
LET  PRODUCT. TVPE-PROOUCT 
LET  PRICE-PRCCUCT PR ANOCN.F II) 

LET  PRIORITV-PFIPROCUCT,  TRUNC.FI PR  ICE ) ♦  1  > 

UCP 

RE AC  LCCAL. SALES,  EXPORT. SALES  ANO  SAVE. TAPE 

RE AC  PCNTH,  OAV  ANO  YEAR  CALL  OR  I G 1 N.R INONTH.D A Y  ANC  YEAR) 

RE  AC  CHECK  IF  CHECK  ECUALS  "OK",  CALL  REPORT  RETURN 
CTMERMISE  PRINT  1  LINE  AS  FOLLOWS 
EITHER  TOO  MUCH  DATA  OR  DATA  HAS  BEEN  RE AO  INCORRECTLY 
STOP  ENC 


EVENT  SALE  I PROOUC T , PR  ICE , PR  I OR  I  TV )  SAVING  THE  EVENT  NOTICE 

CEFINE  SF  TO  PEAN  SALES. FREQUENCY 

LOCAL 

IF  SALE  IS  EXTERNAL,  READ  PRODUCT,  PRICE  ANO  PRIORITY  AS  «  10,1  S,  0(10,11,  l  *> 
REGARDLESS  AOO  1  TO  PRODUCT. SALE S I PROOUC T ,  TRUNC , E I  PR  ICE ) ♦ I »  ) 

O.Rt AT t  A  JOB 

LIT  VALUE-PRICE 

LET  OOE.OATE-TIME.V  ♦  PRICE  ♦  PRIORITY 
LVT  ARRIVAL. TIME-TINE. V 
IF  SAIL  IS  INTERNAL, 

FOR  EACH  PIECE  OF  STRUCTURE,  FILE  PIECE  IN  ROUTING  GO  TO  JOB 
••  PROCESS  SPECIAL  ORDERS 
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OTFEHmISE  UNTIL  MODE  IS  ALPHA,  GO  THE  FOLLOWING... 
HE  AC  N 


FOR  EACH  PIECE  IN  STRUCTURE  WITH  CCOEIPIECE)  *  N, 
FINC  THE  FIRST  CASE,  IF  NONE  GO  TO  LOOP 
FILE  PIECE  IN  ROUTING 
•LOOP*  LOOP 
•JOB*  NOW  ATTENO.TC. JOB 

IT  SALE  IS  EXTERNAL,  DESTROY  THE  SALE  RETURN 


CTt-ERWISE . 

SCHEDULE  THE  SALE  I PRCOUC  T*  PRODUCT  *RANOCR.F  ID,  PR  I  OR  I  TY  .  FREQUENCY  I  PRODUCT  , 
TRUNC.F (PRICEI+l)  IN  SF  HOURS 


RETURN  END 


ROUT  I Kt  TO  ATTENO.TC. JOB 

It  T  PRCDULTI on .cen t er*pach INE.OESTINEOIF.ROUT INGI JOB) ) 
If  NUMBER. IDLE  IS  POSITIVE, 

SUBTRACT  I  FROM  NUMBER. IOLE  PERFORM  ALLOCATION 
RETURN 

OTHERWISE  FILE  JOB  IN  QUEUE  RETURN 
FNC 


ROUTINE  FOR  ALLOCATION 

R  f  PC V  l  Itl  FIRST  CPERATION  FROM  THIS  ROUTING 

SCHECULE  AN  ENO«OF. PROCESS  GIVEN  JOB  AND  PRODUCT  ION. CENTER  IN 
PRCCESS.TIMEAFXPEUITE.FACTQR  HOURS 
R|  TURN  ENC 


PU'I.IIM  EXPEOI  »k. FACTOR 

If  TIMt.V  IS  GREATER  THAN  OUE.CATE  RETURN  WITH  0.5  ELSE 
HI  TURN  WITH  MIN. FMCUE. CATE-TIME. VI/PRCCESS.  TIME,  11 
f  NL 


I.PUN  I NU. OF. PROCESS  GIVEN  JOB  AND  PROOUCT ION. CENTER 
IF  Rl  t  UNO,  IS  EMPTY,  IT  DUE. DATE  <-  TIPE.V, 

OESTROY  THIS  JOB  GO  TO  PC 

EISL  FILE  THIS  JOB  IN  F INISHF 0. GOODS. INVENTORY  GO  TO  PC 
(  fltRWlSE  CALL  ATTEND. TO. JOB 
•PC’ 

It  U.tu  IS  EMPTY, 

ADC  l  TO  NUMBER. IUIF  RETURN 
CLSt  RtMtJvE  I  HE  FIRSI  JOB  FROM  QUEUE 
PERFORM  ALLOCATION  Rt TURN 
ENC 


EVIM  FIJR  WEEKLY .HEPOH  T  SAVING  THE  EVFNT  NOTICE 
Rt SI  I  OUll  THIS  WEEKLY. RtPCRT  IN  l  WE f  K 
ML  I  II)  WfcFK  .LCUNTER 
M  t,  .*  I  PUR  ( 

R f  SI  I  WEEKLY  TOTALS  Of  SIAY 


FOR  EACH  PRODUCTION. CENTER,  RESET  WEEKLY  TOTALS  OF  N.CUEUE 

IF  NOO. FI WEEK. COUNTER, A»=C,  FOR  EACH  PRODUCTION. CENTER,  RESET  MONTHLY  TOTALS 
OF  NJOUEUE  ELSE 
RETURN  END 


EVENT  FOR  END. OF. SIMULATION 

FOR  1-1  TO  EVENTS. V,  FOR  EACH  NOTICE  IN  EV.SII1,  DO 
REMOVE  THE  NOTICE  FROM  EV.SIlt 
DESTROY  THE  NOTICE 

LOOP 

NON  REPORT 

LIST  PROOUCT. SALES 

RETURN  ENO 


ROUTINE  FOR  OUEUE. CHECK  GIVEN  ENTITY  AND  I 
LOCAL 

IF  1  LE  I  LE  N. PRODUCTION. CENTER,  RETURN 
OTHERWISE...  PRINT  1  LINE  WITH  I  AS  FOLLOWS 
STOPPED  TRYING  TO  REFERENCE  CUEUE t  •) 
TRACE  STOP  ENO 


ROUTINE  FOR  STAY. TIME  GIVEN  JOB 
LET  SIAY'TIME.V  -  ARRIVAL.! 1ME1 JOB) 
RETURN  END 


ROUTINE  TC  TRACE 
LOCAL 

IF  F IN ISHEO.GCCOS. INVENTORY  IS  EMPTY,  GO  AROUND 

ELSE  TOR  EACH  JOB  IN  F IN  I SHEO.GOCOSt INVENTORY  UNTIL  DUE, DATE  >  TIME.V,  DO 
REMOVE  THE  JOB  FROM  F INI SHEO.CCODS. INVENTORY  DESTROY  THE  JOB 
LOOP 
•AROUNC* 

GC  TC  ENO. CF. PROCESS,  SALE,  MEEKLY. REPORT  AND  END. OF . S IMUL AT  I  ON  PER  EVENT. V 
•ENC.O. PROCESS*  WRITE  ITEM,  PRODUCER,  TIME.V  AS  "ITEM",  I  5,  "STOPPED", 

"PROCESSING  CN  MACHINE",  I  5,  "  AT  T IMt*", 0 1 1 0, 3 1 ,  / 

RETURN 

•SALE*  WRITE  TIME.V,  PRODUC T . T YPE ,  PRICE  ANO  PRIORITY  AS  "SALE  OF  TYPt",  I  3,  " 
"  PROOUCT  AT  TIME*",  0110,31,  "  FOR  »«,  016  21,  "  PRIORITY*",  l  3, 
/  RETURN 
•WEEKLY. REPORT* 

•ENC.CI .SIMULATION* 

RETURN 

ENL 


LEFT  ROUTINE  NUMBER. ICLE4M) 

CEF1NE  J  AS  A  SAVED,  2-D I  ME  NS  I CNAL  ARRAY 
CEFINE  K  AS  A  SAVFC,  l-C  IHENS I CNAL  ARRAY 

Fill  KB  ktlh  lu 

If  TAPt JflAG-O.  IfcT  TAPE.R.AGM 
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RELEASE  J  AND  K 

RESERVE  KIP)  AS  N. PRODUCTION. CENTER 
RESERVE  Jl*,*l  AS  100  8Y  N. PRODUCT  ION. CENTER 
REOAR l LESS  ADO  1  TO  KIP) 

IET  JIK|P),P)*N 

If  MM.IOC,  WRITE  MSI)  USING  SAVE. TAPE 

FOR  1*1  TC  100,  WRITE  J( I  ,P)  AS  1  3  USING  SAVE. TAPE 
WRITE  A6  /  USING  SAVE. TAPE 
RF 0 AH r LESS  POVE  PROP  N 

Rt  TURK  END 


RCUTIKt  TC  REPORT 
LCCAL 

IF  TIP£JV*0, 

START  NEW  PAGE  ,,ANO,»  OUTPUT  TITLE 
SKIP  2  OUTPUT  LINES 
PRINT  3  LINES  AS  FOLLOWS 

PROOUCT  CATA 

NAPE  SALES  FRECUENCV  PRODUCTION  SECUENCE 

PROS.  VALUE  CODE  CNTR  TINE 

FOR  EACH  PROOUCT,  DC 

LET  l*F. SALES. FRECUENCV 
LET  J«F. STRUCTURE 

PRINT  1  LINE  WITH  NAPE,  PROD. A(I),  RVALUE. AID,  COOEIJ), 

PACHINE. DESTINED! J)  AND  PROCESS.T IPE I J )  THUS 
*.*•  P.PP  •*  «*  *.•* 

IF  1  -i*0 ,  LET  I-S.SALESJFREOUENCYU)  ELSE 
IF  J—0,  LET  J«S. STRUCTURED)  ELSE 
IF  1*0  AN0  J*C,  GO  TO  HOOP*  ELSE 

IF  I-«0  AND  J-0,  PRINT  1  LINE  WITH  PROG. Ad)  AND  RVALUE. All)  THUS 
*.*P  *.** 

ELSE  IF  1*0  AND  J-*0,  PRINT  1  LINE  WITH  CODED),  PACHINE.DEST  INEDIJ ) , 

AND  PROCESS. TINEIJI  THUS 
I*  ••  ».»» 

ELSE  IF  l-**0-*J,  PRINT  1  LINE  WITH  PROB.Ad),  RVALUE. Ad),  COOED), 

PACHINE, OESTINEDIJ)  AND  PROCESS. T I  PEI J )  THUS 

*.«•  P.PP  pp  •*  P.PP 

• L  COP '  LOOP 

SKIP  7  OUTPUT  LINES 

PRINT  2  LINES  AS  FOLLOWS 

PRODUCT  I  CN  CENTER  DATA 
CENTER  NUP8ER  OF  PACHINES 

FIR  EACH  PRODUCTION. CENTER,  PRINT  1  LINE  WITH  PROOUCT ION. CENTER  AND 

NUP8ER. IDLE  THUS 
*#  «* 

SKIP  2  OUTPUT  LINES 
PRINT  2  LINES  AS  FOLLOWS 

INITIAL  EVENTS 
EVENT  TYPE  TINE 

FUR  1*1  TO  EVENTS. V,  FOR  EACH  J  IN  EV.Sd), 

PRIM  1  LINE  WITH  I  AND  TINE. All)  THUS 

•  «*,** 

K£  GAKl LESS . 

START  NEW  PAGE 
PRINT  1  LINE  AS  FCLLCWS 
PRINT  i  LINES  LIKE  THIS.... 

WEEKLY 


REPORT 
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PRINT  2  LINES  KITH  AVG. STAY  AND  VAR. STAY  AS  FOLLOWS 
JOB  STAY  STATISTICS  ARE:  AVERAGE  STAY-  AjP* 

VARIANCE  -  • 

SHIP  1  OUTPUT  LINES 

BEGIN  REPORT 

BEGIN  HEAOlNG 

PRINT  2  LINES  AS  FOLLOWS 

PRODUCTION  CENTER  GUEUEING  REPORT 
CNTR  AVG.  CUEUE  PAX.  QUEUE 

ENC  • 'HEADING 

FOR  EACH  PRODUCTION. CENTER.  PRINT  I  LINE  WITH  PRODUCT ION.CENTER. 

AVG. CUEUE  AND  MAX. QUEUE  THUS 
•  •  * 

END  ••  REPORT 

PRINT  1  LINE  WITH  AVERAGE  I AVG. QUEUE  4 •) »  LIKE  THIS 

CVERALL  AVERAGE  QUEUE  LENGTH  OF  ALL  QUEUES  IS  ♦.** 

SKIP  3  OUTPUT  LINES 

FOR  EACM  PRODUCTION. CENTER.  DO 

BEGIN  REPORT  PRINTING  FOR  1*1  TO  25  IN  GROUPS  OF  5 
BEGIN  FEAOING 

PRINT  I  LINE  WITH  PRODUCTION. CEN TER  LIKE  THIS 
HISTOGRAM  OF  QUEUE  LENGTH  FOR  PRODUCTION  CENTER  •  • 

END  ••  HEADING 

PRINT  1  LINE  WITH  A  GROUP  OF  FREQ! PROOUCT I  ON. CENTER. 2)  FIELOS  THUS 

«  •  •  ♦  • 

ENC  ••  REPORT 

LOOP 

IF  MCO.FIWEEK. COUNTER. AI-«0,  RETURN 
OTHERWISE. .W  START  NEW  PAGE 
PRINT  1  LINE  AS  FOLLOWS 

MONTHLY  REPORT 
SKIP  2  OUTPUT  LINES 
SKIP  3  OUTPUT  LINES 
BEGIN  REPORT 
eEGIN  HEADING 
PRINT  2  LINES  AS  FOLLOWS 

PRODUCTION  CENTER  QUEUEING  REPORT 
CNTR  AVG.  CUEUE  PAX.  QUEUE 

ENC  "HEADING 

FOR  EACH  PRODUCTION. CENTER.  PRINT  1  LINE  WITH  PRODUCT IONaCENTEK. 

AVG. IN. QUEUE  AND  PAX. IN. QUEUE  THUS 

••  •.*♦  A 

ENC  "  REPORT 

PRINT  I  LINE  WITH  AVERAGE  I AVG. IN a QUEUE (•) )  LIKE  THIS 

OVERALL  AVERAGE  QUEUE  LENGTH  OF  ALL  QUEUES  IS  *.** 

RETURN 

ENC 


ROUTINE  FOR  AVERAGE  CIVEN  ARRAY 
LOCAL 

CEFINE  ARRAY  AS  A  1-0 1  PENS  I CNAL  ARRAY 

FOR  J»1  TO  OIP.FIARRAYI*)) .  COMPUTE  P  AS  THE  PEAN  OF  ARRAVIJ! 

RETURN  WITH  P 

ENC 
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SAPPtE  OAT*  FOR  SEVERAL  JOB  SHOP  EXPERIMENTS  USING  THE  LEVEL  K  *  SECTION  5.05 
JOC  SHOP  SIMULATION  PROGRAM. J ... T I TLE S .  AS  SHORN.  CAN  EXTEND  OVER  SEVERAL  CAROS 
ANt  APE  ENOEO  BY  A  MARK.V  CHARACTER  • 

■5  1C  10  5  5  J 

) 

TOP  C.25  10.0  0.50  15.0  0.75  20.0  1.00  25.0 

1  t  1  C.2  2  2  0.9  34  0.3* 

VC VC  C.10  3.7  0.28  5.6  0.39  7.2  0.60  9.2  0.81  10.6  0.95  15.2 

1.00  20.0* 

12  15  1  1.2  16  3  0.8  17  4  0.2  18  2  1.5* 

mi  0.1  1.0  0.2  2.0  0.2  3.0  0.4  4.C  0.1  5.0 

123  20  5  4.2  21  4  5.6  22  1  3.2  23  5  2.00* 

I  2  3 

7  1  1968 
CK 

(HIS  IS  A  TITLE  CARD  FOR  THE  SECOND  SIMULATION  EXPERIMENT  OF  THE  SERIES 
DATA  CAROS  FOR  THIS  EXPERIMENT  MILL  HAVE  THE  SAME  FORMAT  AS  THOSE  OF  THE 
PREVIOUS  EXPERIMENT  ANC  MILL  ENC  WITH  AN  ■OK"  CARD  • 


THE  FCLLOMING  CARDS  ARE  SAMPLES  OF  THE  DATA  CAROS  PUNCHED  FOR  ONE  OF  THE  TMO 
EXTERNAL  EVENTS  TAPES  .  THIS  IS  JUST  A  SAMPLE  FROM  THE  TAPE 

SALE  7/2/68  12  CC  2  1.98  1  15  17  18  • 

SALE  7/2/68  13  25  1  0.97  1  l  2  3  * 

SAlE  7/1/68  01  30  2  1.50  2  16  17  18  • 

SALE  7/3/68  C7  00  3  2*50  1  20  22  23  • 

ENC. LF. SIMULATION  9/1/69  12  00  • 
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COMMENTS  ON  THE  SIMULATION  PROGRAM 

The  program  Is  arranged  functionally  and  is  discussed  as  it 
appears.  The  order  of  the  program  is  preamble,  main  routine, 
initialization,  events  and  routines  of  the  simulation  model,  routines 
for  monitoring,  debugging  and  analysis. 

Preamble 

The  preamble  is  divided  into  seven  sections:  permanent  entities, 
temporary  entities,  event  notices,  event  control,  debugging,  analysis 
and  miscellaneous  declarations.  Most  simulation  programs  can  be 
organized  this  way. 

One  compound  and  two  simple  permanent  entities  are  declared. 

The  special  features  of  each  are  these: 

PRODUCT  has  a  RANDOM  attribute  and  an  ALPHA  attribute,  each 
requiring  definition  in  a  DEFINE  statement. 

PRODUCT .SALES ,  the  single  attribute  of  the  compound  entity 
PRODUCT, PRODUCT,  is  intrapacked  to  conserve  storage  space. 

PRODUCTION. CENTER  has  two  pairs  of  attributes  that  are  packed  in 
the  same  array,  and  one  attribute  that  is  monitored.  The 
packed  attributes  use  f ie Id -packing ,  equivalence  and  array 
specification.  The  monitored  attribute  requires  an  additional 
DEFINE  s  ta  temen t . 

PRODUCT. SALES  could  just  as  easily  have  been  defined  as  a  global 
array  or  as  a  two-dimensional  system  attribute.  As  a  global  array 
though,  it  could  not  have  been  packed;  as  a  system  attribute  it 
would  not  be  eligible  for  implied  subscripting. 

Two  temporary  entities  are  declared.  The  special  features  of 
each  follows: 

JOB  has  one  attribute  placed  in  a  specific  word  in  its 

entity  record,  and  has  a  function  attribute.  The  function 
attribute  requires  a  DEFINE  statement  to  declare  its  mode. 

Two  sets  in  which  a  JOB  participates  have  their  implied 
properties  modified  by  DEFINE  statements. 

Two  attributes  of  OPERATION  are  packed  in  the  first  word  of 
each  entity  record. 
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A  set  to  which  an  OPERATION  belongs  has  its  removal  routines 
deleted  by  a  DEFINE  statement. 

Three  event  notices  are  declared.  The  special  features  of  each 
are  these: 

WEEKLY .REPORT  has  no  attributes,  and  neither  owns  nor  belongs 
to  sets  other  than  the  standard  one  defined  for  all  event 
notices . 

One  event, SALE,  breaks  ties  among  competing  event  notices 
through  a  BREAK  TIES  declaration.  The  other  internal 
events  break  ties,  if  they  occur,  on  a  first-come,  first- 
served  basis. 

TWo  external  event  classes,  END .OF. SIMULATION  and  SALE,  are  declared. 
Two  input  devices  are  declared  as  suppliers  of  external  event  triggers. 

The  priority  order  of  the  four  event  classes  is  declared  in  a  PRIORITY 
statement . 

TWo  BEFORE  statements  are  used.  Each  states  that  a  certain 
routine  is  to  be  called  before  a  specified  action  takes  place.  The 
arguments  of  these  routines  are  not  stated,  but  implied. 

One  TALLY  and  two  ACCUMULATE  statements  are  used.  The  special 
features  of  each  follow; 

The  TALLY  statement  compiles  statistics  for  a  DUMMY  variable, 
which  is  declared  in  a  separate  DEFINE  statement. 

All  of  the  statistical  counters  used  in  the  TALLY  and 

ACCUMULATE  statements  are  defined  so  they  can  be  released. 

If  they  were  not  named,  they  would  be  given  local  names 
such  as  A.l  and  A. 2  by  the  SIMSCR1PT  II  compiler. 

FREQ  is  a  two-dimensional  array.  The  first  dimension  is 
an  entity  index.  The  variable  for  which  it  accumulates 
a  histogram  is  an  attribute  of  PRODUCTION .CENTER.  The 
second  dimension  is  the  histogram  index  and  is  an 
integer  between  1  and  26. 

The  remaining  statements  are: 

Declare  a  system  owned  set. 

Use  DEFINE  TO  MEAN  statements  to  create  shorthand  notation. 
Declare  four  global  variables:  a  two-dimensional  array, 
two  INTEGER  variables ,  and  a  TEXT  variable. 
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Declare  a  function  and  specify  the  number  of  arguments  It 
must  always  have. 

Main  Program 

The  main  routine  has  three  functions:  It  Initializes  the  model 
so  simulation  can  start,  it  transfers  control  to  the  timing  routine 
when  Initialization  is  complete,  and  it  resets  the  entire  system  to 
an  "empty"  condition  at  the  end  of  a  simulation  run  so  another 
experiment  can  begin. 

Initialization  takes  place  in  the  routine  INITIALIZATION.  After 
initialization,  the  SUBPROGRAM  system  variable  BETWEEN.V  Is  set  to 
the  routine  name  'TRACE',  indicating  that  this  routine  is  to  be  called 
before  each  event  is  executed.  Simulation  begins  at  the  START 
SIMULATION  statement  that  removes  the  first  event  from  the  events 
list  and  transfers  control  to  it.  Simulation  proceeds  until  an  END. OF. 
SIMULATION  event  occurs.  This  event,  aside  from  its  obvious  task  of 
reporting  the  results  of  the  simulation  experiment,  empties  the  events 
list  sets.  When  END .OF .SIMULATION  returns  control  to  the  timing 
routine,  the  lack  of  scheduled  events  causes  control  to  pass  to  the 
statement  after  START. SIMULATION .  In  many  simulations  this  will  be 
STOP.  In  this  example,  it  is  the  first  of  many  statements  that 
release  and  destroy  all  permanent  and  temporary  entities.  After  these 
statements  have  been  executed,  all  the  memory  structures  set  up  by  the 
previous  experiment  have  been  erased. 

To  perform  this  erasure,  the  system  set  FINISHED .GOODS. INVENTORY 
and  the  sets  owned  by  the  permanent  and  temporary  entities  are  emptied 
and  their  members  destroyed.  Finally,  all  attributes  of  permanent 
entities  are  released.  Special  features  to  notice  are  these: 

The  PRODUCTION .CENTER  loop  in  which  operations  owned  by 
jobs  owned  by  production  centers  are  successively 
removed  and  destroyed. 

The  RANDOM  variable  SALES. FREQUENCY  is  treated  as  a  set 
when  it  is  emptied. 

All  permanent  entity  attributes,  including  set  pointers 
and  statistical  accumulators,  are  released. 
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In  many  programs,  so  extensive  a  reinitialization  process  is  not 
necessary.  For  example,  it  is  usually  sufficient  to  zero  out  all 
attribute  values  and  empty  all  sets.  This  example  has  been  written 
to  illustrate  what  seems  to  be  the  worst  case.  When  single  simulation 
runs  are  made  and  no  reinitialization  is  necessary,  the  initialization 
routine  can  be  released  and  its  space  regained  for  array  and  entity 
storage.  The  following  routine  shows  how  this  is  done. 

Add  to  the  preamble : 

DEFINE  INITIALIZATION  AS  A  RELEASABLE  ROUTINE 
Use  this  routine: 

MAIN 

PERFORM  INITIALIZATION 
RELEASE  INITIALIZATION 
START  SIMULATION 
STOP  END 

Program  Initialization 

INITIALIZATION  starts  with  some  declarations.  The  first  takes 
advantage  of  the  DEFINE  TO  MEAN  statement  of  the  preamble  to  define 
some  local  INTEGER  variables  I,  J,  K,  L,  M  and  N.  The  next  two 
statements  are  local  DEFINE  TO  MEAN  declarations  that  create  short¬ 
hand  notations  for  two  lengthy  variable  names.  The  last  declaration 
describes  a  local  ALPHA  variable  that  verifies  whether  or  not  all 
input  data  have  been  read. 

Since  a  mistake  may  have  been  made  in  setting  up  a  simulation 
run,  EOF.V  is  set  to  1  to  give  the  program  control  over  the  actions 
taken  when  the  end  of  the  input  data  file  is  reached.  If  an  end-of- 
flle  is  encountered  when  reading  TITLE,  EOF.V  is  set  to  2  and 
this  fact  is  picked  up  in  the  following  IF  statement.  A  sequence 
of  simulation  experiments  can  also  be  stopped  this  way.  When  all 
the  data  for  a  sequence  of  runs  are  exhausted,  these  statements 
will  8 top  the  program. 
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The  INPUT  statement  reads  characters  from  the  current  input 
unit  READ.V  until  an  asterisk,  the  MARK.V  default  symbol,  is  reached. 

A  typical  simulation  TITLE  card  might  be: 

SIMULATION  RUN  NO.  1  JOB  SHOP  WITH  10  CENTERS  * 

If  some  symbol  other  than  *  is  to  be  used  as  a  TEXT  terminator,  a 
statement  such  as  LET  MARK.V-"?"  is  put  at  the  head  of  INITIALIZATION. 

A  value  that  is  the  number  of  production  centers  is  then  read 
and  used  to  reserve  the  arrays  that  hold  the  attributes  of  PRODUCTION. 
CENTER.  This  value  is  also  used  to  read  in  the  number  of  machines  in 
each  production  center  (which  are  all  idle  wiien  simulation  begins.) 

A  similar  process  then  takes  place  for  PRODUCT.  It  is  more 
complex  in  that  a  richer  variety  of  data  structures  are  associated 
with  PRODUCT  than  with  PRODUCTION  .CENTER.  The  data  structures  are 
the  following: 

PRIORITY .FREQUENCY --a  "ragged  table"  whose  rows  are  "sized" 
dynamically. 

SALES  .FREQUENCY- -a  RANDOM  variable  whose  sampling  data  is 
read  in  a  standard  format. 

STRUCTURE - - a  set  with  OPERATIONS  as  members. 

Also,  an  initial  local  SALE  for  a  standard  product  must  be 
scheduled  for  each  product  type.  In  scheduling  these  sales,  the 
PRICE  of  each  SALE  is  a  random  variable  between  0  and  the  product 
type,  e.g.,  a  type  3  product  can  be  sold  for  between  $0  and  $3,  and 
the  PRIORITY  assigned  to  a  sale  can  be  determined  by  a  random  draw 
from  the  PRIORITY .FREQUENCY  table. 

At  the  end  of  initialization  the  numbers  of  the  input  devices 
for  the  LOCAL. SALES  and  EXPORT, SALES  external  event  units  are  read. 
This  allows  devices  to  be  changed  between  simulation  runs.  Finally, 
the  ORIGIN .R  routine  is  invoked  to  set  the  simulation  calendar  so 
that  calendar  dates  can  be  used  on  the  external  event  tapes. 

If  the  last  data  field  read  is  not  the  character  string  OK,  the 
run  terminates  with  an  error  message. 
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Events  and  Routines  of  the  Simulation  Model 

The  event  SALE  is  written  to  react  properly  to  both  internal 
and  external  event  triggers.  The  event  creates  a  Job,  determines 
its  routing  through  the  shop,  and  starts  it  in  its  processing  sequence. 
If  the  sale  is  internal,  a  new  order  is  scheduled  for  the  same  product 
some  t  ime  in  the  fu  tu  re . 

The  EVENT  Statement  defines  SALE  as  an  event  routine  with  three 
input  arguments.  It  also  declares  that  when  a  SALE  event  notice  is 
selected  as  the  next  event,  the  first  three  programmer  defined 
attributes  of  SALE  are  to  be  assigned  to  the  local  variables, 

PRODUCT,  PRICE  and  PRIORITY,  and  that  the  event  notice  is  not  to  be 
destroyed.  An  important  point  to  note  here  is  that  PRODUCT,  PRICE 
and  PRIORITY  are  local  variables;  they  are  different  from  the  variables 
defined  as  attributes  of  the  event  notice  in  the  preamble. 

The  first  two  statements  are  local  declarations  that  we  have 
seen  before.  The  third  statement  is  the  one  that  allows  SALE  to 
be  used  with  both  internal  and  external  event  triggers.  It  says: 
if  SALE  has  occurred  externally,  read  three  data  items,  otherwise 
do  not  read  any  data.  Regardless  of  how  the  event  was  triggered, 
values  get  assigned  to  PRODUCT,  PRICE  and  PRIORITY. 

The  next  statement  adds  1  to  an  element  of  PRODUCT, SALES ,  counting 
the  number  of  times  particular  products  are  sold  at  different  prices. 

The  next  section  of  code  creates  a  JOB  entity  and  assigns  values 
to  its  attributes.  The  JOB  is  the  entity  that  will  flow  through  the 
shop,  and  will  represent  the  sale  from  now  on.  If  SALE  is  triggered 
Internally,  it  is  a  sale  for  a  standard  product,  and  the  standard 
sequence  of  operations  for  producing  that  product  is  transferred  from 
STRUCTURE (PRODUCT)  to  ROUTING( JOB) .  Notice  that  implied  subscripts 
are  used  in  the  program  for  both  STRUCTURE  and  ROUTING.  If  the  SALE 
is  triggered  externally,  it  represents  a  possible  special  order.  As 
special  order  operations  are  subsets  of  operations  that  produce 
standard  products,  data  are  read  that  select  a  subset  of  operations 
for  producing  the  order  and  store  it  in  the  JOB  routine  set. 
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Wich  this,  the  task  of  SALE  is  almost  completed.  The  now  completely 
specified  JOB  is  started  through  processing  by  the  routine  ATTEND  .TO  .JOB . 
After  this  routine  deals  with  the  job,  it  returns  to  SALE  where 
arrangements  are  made  for  the  next  SALE.  If  the  SALE  just  processed 
was  triggered  externally,  the  event  notice  is  destroyed  and  control 
returned  to  the  timing  mechanism.  The  next  external  event  will  be 
selected  automatically  by  the  timing  mechanism  from  the  external 
events  tapes.  If  the  SALE  was  triggered  internally,  the  event  notice 
is  reused  to  schedule  another  sale  for  this  same  product,  with  a 
different  price  and  priority.  The  time  at  which  this  sale  is  to 
occur  is  determined  by  a  random  sample  from  the  RANDOM  variable 
SALE S .F REQUENC Y ( PRODUC T) ;  again  implied  subscripting  is  used. 

ATTEND .TO. JOB  uses  the  routing  of  the  current  JOB  to  select 
the  production  center  in  which  the  first  operation  is  to  be  performed. 

The  first  statement  in  ATTEND .TO. JOB  is  important  as  it  illustrates 
several  basic  operations  in  SIMSCRIPT  II  programming .  First,  it 
illustrates  the  use  of  a  set  pointer  to  select  a  set  member*,  F  .ROUTING 
(JOB)  picks  out  an  entity  identification  number.  This  identification 
number  is  then  used  with  an  attribute  of  the  entity  type  it  represents 
(OPERATION)  to  determine  a  value;  MACHINE ,DESTINED(R.ROUTiNG( JOB))  is 
the  production  center  number  the  first  operation  requires.  This 
number  is  assigned  to  PRODUCTION .CENTER  so  that  implied  subscripting 
can  be  used  later  on  in  the  program. 

After  the  production  center  is  determined,  NUMBER. IDLE( PRODUCTION. 
CENTER)  Is  examined  to  determine  whether  a  machine  is  available  in  this 
production  center  to  process  the  job.  If  a  machine  is  available,  it 
is  allocated  to  the  job  by  first  subtracting  1  from  the  idle  machine 
counter  and  then  calling  the  routine  ALLOCATION.  If  a  machine  is 
not  available,  the  job  is  filed  in  a  QUEUE  owned  by  the 
production  center.  When  a  machine  becomes  free  at  some  later  date, 
the  QUEUE  will  be  examined  and  a  job  removed  for  processing.  All 
the  time  a  job  spends  in  the  shop  in  excess  of  its  actual  processing 
time  is  spent  in  queues  belonging  to  different  production  centers 
and  in  finished  goods  Inventory. 
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ALLOCATION  knows  Chat  it  is  given  a  certain  job  because  the 
that  the  identification  number  of  this  job  is  in  the  global  variable 
JOB.  It  removes  the  first  operation  from  the  ROUTING  of  this  job, 
and  schedules  an  END, OF. PROCESS  event.  The  job  identification 
and  the  production  center  identification  are  assigned  to  the  first 
two  attributes  of  this  event  notice.  The  event  is  scheduled  for  a 
standard  time,  PROCESS .TIME (OPERATION) ,  modified  by  a  factor 
that  depends  upon  the  current  time  and  the  time  the  job  was 
promised  to  the  customer.  Note  the  use  of  implied  subscripts  in 
communicating  between  the  routines  ALLOCATION  and  EXPEDITE .FACTOR , 
and  within  the  routines  themselves. 

EXPEDITE .FACTOR  looks  at  the  DUE .DATE  of  the  current  job  and 
compares  it  with  the  current  simulation  time.  If  the  job  is  late, 

EXPEDITE .FACTOR  returns  a  value  of  0.5  to  shorten  the  processing  time 

of  the  operation.  If  the  job  is  not  late,  a  value  between  0  and  1  is  computed, 

which  depends  upon  the  time  remaining  before  the  Job  will  be  late 

and  the  processing  time  of  the  current  operation.  Again 

implied  subscripts  are  employed. 

The  event  END .OF .PROCESS  does  two  things,  it  takes  care  of  a 
job  that  has  just  finished  processing  at  a  production  center  and  it 
takes  care  of  the  production  center.  First  it  deals  with  the  job. 

If  the  ROUTING  of  the  job  is  empty,  all  its  operations  have  been 
completed  and  it  can  pass  from  the  shop.  If  the  job  is  finished  on 
time,  or  is  late,  its  entity  record  is  destroyed.  If  it  is  early, 
it  is  filed  in  FINISHED .GOODS .INVENTORY  where  it  stays  until  its 
DUE. DATE.  If  the  job  is  not  completed,  the  routine  ATTEND. TO  .JOB 
assigns  it  to  its  next  operation.  Note  the  use  of  the  REMOVE  state¬ 
ment  in  ALLOCATION  that  makes  this  assignment  automatic. 

It  is  Important  at  this  point  to  understand  the  flow  of  control 
between  events  and  routines.  The  reader  is  advised  to  make  up  some 
data,  or  use  the  data  at  the  end  of  the  program  to  trace  several 
Jobs  and  their  flow  through  the  shop. 

After  disposing  of  the  Job,  END  .OF  .PROCESS  deals  with  the  produc¬ 
tion  center.  If  no  jobs  are  awaiting  processing  in  the  production 
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center  QUEUE,  the  machine  just  released  is  returned  to  the  idle  state. 
If  jobs  are  waiting,  one  is  selected  according  to  the  queue's  priority 
rule  and  processing  is  started  on  it. 

This  completes  the  routines  and  events  that  are  directly  involved 
in  the  shop  simulation.  The  remaining  routines  and  events  deal  with 
preparing  reports,  stopping  the  simulation,  collecting  data  and 
monitoring  the  model. 

Events  and  Routines  for  Monitoring.  Debugging  and  Analysis 

The  event  WEEKLY .REPORT  occurs  periodically.  It  keeps  track 
of  the  number  of  simulated  weeks  that  have  gone  by,  resets  counters 
that  are  used  for  collecting  periodic  statistical  information,  calls 
on  a  report  routine  and  reschedules  itself.  The  feature  of  interest 
in  this  routine  is  the  use  of  the  word  WEEK  in  the  RESCHEDULE  state¬ 
ment.  This  word  was  defined  to  mean  *H0URS.V*7  HOURS  in  the  program 
preamble;  the  RESCHEDULE  statement  is  therefore  compiled  as  RESCHEDULE 
THIS  WEEKLY. REPORT  IN  l*HOURS.V*7  HOURS.  When  declarations  such  as 
this  are  made,  care  must  be  taken  that  the  defined  word  is  not  used 
inadvertently  in  another  context,  e.g.  there  can  be  no  variable, 
routine,  label  or  set  named  WEEK  in  this  program. 

The  event  END .OF. SIMULATION  is  triggered  externally  and  has  as 
its  main  purpose  the  termination  of  a  simulation  run.  It  does  this 
by  emptying  the  events  sets  so  control  will  pass  to  the  statement 
after  START  SIMULATION  when  END .OF .SIMULATION  returns  control.  In 
addition  to  stopping  the  simulation,  END .OF .SIMULATION  calls  REPORT 
and  lists  an  array. 

The  next  two  routines,  QUEUE .CHECK  and  STAY. TIME,  are  associated 
with  the  BEFORE  statements  of  the  preamble.  QUEUE .CHECK  is  called 
before  filing  or  removing  is  done  in  any  QUEUE;  STAY  .TIME  is  called 
before  any  JOB  is  destroyed.  The  sole  purpose  of  QUEUE .CHECK  is 
error  checking;  its  code  is  straightforward.  STAY .TIME  has  a 
different  purpose.  It  computes  the  time  a  job  spends  in  the  shop, 
assigning  this  time  to  a  variable  that  will  have  a  TALLY  operation. 
Note  that  STAY  is  used  to  compute  statistics  through 
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its  TALLY  computations,  but  as  it  is  not  used  anywhere  else  in  the 
program,  it  is  declared  DUMMY  and  given  no  storage  location. 

TRACE  is  more  complicated.  Triggered  by  a  call  from  BETWEEN .V 
before  every  event,  it  is  used  to  trace  events  and  to  release  jobs 
from  finished  goods  inventory  when  the  simulation  clock  reaches 
their  due  date.  The  first  part  of  the  routine  deals  with  this  task. 

The  code  makes  use  of  the  fact  that  jobs  are  ranked  in  FINISHED  .GOODS . 
INVENTORY  in  order  of  their  DUE .DATE  . 

The  trace  section  of  the  program  uses  EVENT .V  to  branch  to  a 
different  output  statement  according  to  the  type  of  event  that  has 
been  selected  to  occur  next.  These  output  statements  print  different 
items  of  information  about  each  event  type.  The  program  could  as 
easily  be  written  to  take  actions  on  the  event  types,  such  as  turning 
off  the  trace  by  setting  BETWEEN. VH)  when  TIME.V  reaches  a  certain 
value  or  a  special  kind  of  event  occurs. 

Routine  NUMBER. IDLE  is  a  left-handed  routine  that  implements 
the  monitoring  of  the  attribute  NUMBER. IDLE.  It  has  several  unusual 
features.  One  reason  for  defining  NUMBER. IDLE  as  a  left-hand  monitored 
variable  is  to  save  values  of  the  number  of  machines  idle  over  time 
for  later  processing,  without  putting  the  code  to  do  this  in  the 
simulation  routines.  To  remove  this  feature  from  the  program  at  seme 
later  date,  one  need  only  remove  the  preamble  card  that  states  that 
NUMBER. IDLE  is  monitored  and  the  routine  NUMBER. IDLE,  and  recompile 
the  program.  No  changes  need  be  made  to  any  other  routines. 

The  program  uses  two  SAVED  local  arrays  to  collect  and  write  on 
tape  successive  values  of  NUMBER, IDI£  for  each  production 
center.  A  global  variable  TAPE .FLAG  is  used  to  tell  the  routine 
when  initialisation  of  the  SAVED  local  variables  is  required;  TAPE 
FLAG  is  set  to  sero  at  the  start  of  every  simulation  experiment. 

The  routine  demonstrates  SAVED  values,  local  arrays,  a  left-handed 
function,  subscripted  subscripts,  and  monitored  variables. 

The  last  routines  deal  with  reports  of  system  activity  during 
a  simulation  experiment.  They  print  out  the  parameters  of  the 
experiment  and  the  measurements  made  during  the  experiment.  They 
Illustrate  the  report  generating  facilities  of  SIMSCRIPT  II  as  well 
as  the  COMPUTE  statement. 


